home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / fgl105c.zip / 09-14.C < prev    next >
Text File  |  1991-05-05  |  867b  |  40 lines
  1. int CGApatterns[] = {
  2.    0x0000,0x00FF,0x00FF,0x00FF,
  3.    0x02BB,0x0000,0x0222,0x0255,
  4.    0x00FF,0x00FF,0x00FF,0x0055,
  5.    0x00AA,0x00AA,0x00FF,0x0277
  6.    };
  7.  
  8. main()
  9. {
  10.    int color;
  11.    int old_mode, new_mode;
  12.  
  13.    new_mode = fg_bestmode(320,200,1);
  14.    if (new_mode < 0 || new_mode == 12) {
  15.       printf("This program requires a 320 ");
  16.       printf("x 200 color graphics mode.\n");
  17.       exit();
  18.       }
  19.  
  20.    old_mode = fg_getmode();
  21.    fg_setmode(new_mode);
  22.  
  23.    if (new_mode == 4) {
  24.       fg_palette(0,0);
  25.       for (color = 0; color < 16; color++)
  26.          fg_pattern(color,CGApatterns[color]);
  27.       }
  28.    else if (new_mode == 9 || new_mode == 13)
  29.       fg_pattern(15,0x04F7);
  30.    else
  31.       fg_setrgb(15,38,38,38);
  32.  
  33.    fg_move(0,199);
  34.    fg_dispfile("coral.ppr",320,1);
  35.    fg_waitkey();
  36.  
  37.    fg_setmode(old_mode);
  38.    fg_reset();
  39. }
  40.